10 CLEAR,29990:FORX=32001TO32078:READA$:POKEX,VAL("&H"+A$):NEXT:DATABE,7C,FE,86,81,F6,A7,CC,C1,FF,27,F9,C1,FE,27,0F,C1,F7,27,11,C1,FD,27,13,C1,FB,27,15,7E,7D,3D,30,88,B0,7E,7D,3D,30,88,01,7E,7D,3D,30,88,50,7E,7D,3D,30,88,FF,7E,7D,3D,39,39,39,39,39,39,BF,7C
20 EXEC32001:GOTO20:DATAFE,10,8E,00,00,EC,81,ED,A1,10,8C,0B,00,26,F6,39